Program Kvadrat;
var a:real;
begin
writeln('Введите длину стороны квадрата');
readln(a);
writeln('Площадь квадрата = ', sqr(a));
end.
<em>// PascalABC.NET 3.3, сборка 1547 от 07.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (a,b,c):=ReadInteger3('Введите три целых числа:');
var s:=0;
if a.IsOdd then s+=a;
if b.IsOdd then s+=b;
if c.IsOdd then s+=c;
Writeln('сумма нечетных равна ',s)
end.
<u>Пример</u>
Введите три целых числа: 345423 -324342 1231
сумма нечетных равна 346654
Катет + катет = гипотенуза
Program month;
uses crt;
var m: integer;
begin clrscr;
Write('M = ');
readln(m);
case m of 1: writeln('January');
2: writeln('February');
3: writeln('March');
4: writeln('April');
5: writeln('May');
6: writeln('June');
7: writeln('July');
8: writeln('August');
9: writeln('September');
10: writeln('October');
11: writeln('November');
12: writeln('December');
end;
end.