Дам 70 б

Дано описание переменных в программе. Выпиши:
имена переменных
типы переменных.
var
count, count2: real;
z: integer;
M: string;
begin ...

count - переменная вещественного типа

count2 -  переменная вещественного типа

z - переменная целочисленного типа

M - переменная строкового типа

z - переменная целочисленного типа

count2 -  переменная вещественного типа

M - переменная строкового типа

count - переменная вещественного типа

Объяснение:

program nm13; uses crt; var s1,s2,d,a,diag: real; beginwriteln('vvedi ploschad kruga i ploschad kvadrata'); readln(s1); readln(s2); d: =2*sqrt(s1/3.14); a: =sqrt(s2); diag: =2*sqrt(2*a*a); if diag> d then writeln (' krug pomestits9 v kvadrate ') else writeln (' krug ne pomestits9 v kvadrate ');

readln;

end.

решение на