Var a, b: integer;
begin
write('Первое число = ');
readln(a);
write('Второе число = ');
readln(b);
if a > b then
writeln(a + b)
else
writeln(a * b);
end.
program NandM;
var n,m,r: integer;
c,d: real;
Begin
writeln ('Enter n,m');
readln (n,m);
r:=random(500);
c:=n mod m;
d:=m mod n;
If (c=0)or(d=0) then writeln ('1') else writeln ('r');
readln;
End.
Var
i,sum:integer;
res:real;
a:array [1..5] of integer;
begin
for i:=1 to 5 do begin
readln(a[i]);
end;
for i:=1 to 5 do begin
sum:=sum+a[i];
end;
res:=sum/5;
writeln(res);
end.
Компьютер
это просто окно это ну когда сайт открываешь это называется окно
клавиша на клавиатуре клавиатура это составляющая компьютера
экран тоже
системный блок соответственно