Thuật toán:
-Bước 1: S<-{xâu rỗng}
-Bước 2: Nếu S <> 'platinum' thì:
2.1:Nhập tên vật liệu và gán vào biến S
2.2:Quay về bước 2
-Bước 3:Thông báo 'Chuc mung ban da thanh cong' rồi kết thúc
*TỪ THUẬT TOÁN VIẾT THÀNH CHƯƠNG TRÌNH .
uses crt; var s:string; begin clrscr; s:=''; while s<>'platinum' do begin write('Nhap ten vat lieu: ');readln(s); end; writeln('Chuc mung ban da thanh cong'); readln end.