program raf105;
var
a,b,c,paint: real;
begin
write('Длина: ');
readln(a);
write('Ширина: ');
readln(b);
write('Высота: ');
readln(c);
paint:= (a*c*2 + b*c*2 + a*b) * 0.2;
writeln('Требуется ',paint,' л. краски');
end.
<h3>
PascalABC</h3>
Program student;
var
ocenka:byte;
begin
writeln('vvedite ocenku');
readln(ocenka);
case ocenka of
1: writeln('ochen ploho!');
2: writeln('ploho');
3: writeln('udovletvoritelno');
4: writeln('horosho');
5: writeln('otlichno');
end;
end.
Решение на паскале:
var
a: string;
b, c: byte;
begin
b := 0;
c := 0;
for c := 1 to 30 do
begin
readln(a);
if a = 'Петя' then b := b + 1;
end;
write(b);
end.