program z5;uses crt;varb:integer;x,c,s:real;beginclrscr;write('Vvedi stoimost kvadratnogo metra=');readln(b);write('Vvedi kol-vo metrov=');readln(x);s:=b*0.8*x;writeln(s:4:2);readkeyend.
program z5;
uses crt;
var
b:integer;
x,c,s:real;
begin
clrscr;
write('Vvedi stoimost kvadratnogo metra=');readln(b);
write('Vvedi kol-vo metrov=');readln(x);
s:=b*0.8*x;
writeln(s:4:2);
readkey
end.