Как-то так
const x0=0; x1=180; dx=1;
var x:real;
begin
x:=x0;
while x<=x1 do
begin
writeln(x,' ',x/180*pi);
x:=x+dx;
end;
<span>end.</span>
var n,a,k1,k2,i:integer;
begin
write('Введите количество вводимых чисел: ');
readln(n);
for i:=1 to n do
begin
write('Введите ',i,' числo: ');
readln(a);
if a mod 2 = 0 then k2:=k2+1
else k1:=k1+1
end;
writeln ('Количество четных чисел: ',k2);
writeln ('Количество нечетных чисел: ',k1)
end.
// PascalABC.NET 3.1, сборка 1172 от 19.02.2016
begin
ReadlnString.ToUpper.Println('')
end.
<u><em>Тестовое решение:</em></u>
Это тестовая строчка
ЭТО ТЕСТОВАЯ СТРОЧКА
Шестьдесят яблок
60 яблок.
Или, 1 - 001