1. Var a, b, c:real; d:integer;
Begin
Readln(a, b) ;
S:=a*b;
Write(s) ;
End.
2.
Var a, b, c:real; d:integer;
Begin
D:=0;
Readln(a);
If (a>0) then d:=d+1;
Readln(b) ;
If (b>0) then d:=d+1;
Readln(c>0) then d:=d+1;
Write(d);
End.
8 бит ............ Рррппррр слишком коротко
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
5.To(12).Tabulate(x->x*x+1).Println
end.
<u><em>Результат:</em></u>
(5,26) (6,37) (7,50) (8,65) (9,82) (10,101) (11,122) (12,145)
Shift,F1 - Основные клавиши
1 - Вспомогательные клавиши
End - Командные клавиши