Phones Review

program domino;
var aukstis, plotis, ilgis, turis, plotas, briaunu_ilgis: integer;
begin
Write(’Domino kauliuko aukštis milimetrais: ‘);
Readln(aukstis);
Write(’Domino kauliuko plotis milimetrais: ‘);
Readln(plotis);
Write(’Domino kauliuko ilgis milimetrais: ‘);
Readln(ilgis);
turis:= aukstis*plotis*ilgis;
plotas:= aukstis*plotis*6;
briaunu_ilgis:=aukstis*4+plotis*4+ilgis*4;
Writeln(’Kiauliuko tūris: ‘, turis ,’cm3′);
Writeln(’Kiauliuko visas paviršiaus plotas: ‘, plotas ,’cm2′);
Writeln(’Kiauliuko visų briaunų bendras ilgis: ‘, briaunu_ilgis ,’cm’);
Readln;
end.