Код: Выделить всё
program n1;
uses crt;
var
a,b,c,d,228:real;
begin
read a;
228:=365;
wrineln a;
end.
Код: Выделить всё
program n1;
uses crt;
var
a,b,c,d,228:real;
begin
read a;
228:=365;
wrineln a;
end.
ХУЙНЮsinangel писал(а):SIEMENS_AGКод: Выделить всё
program n1; uses crt; var a,b,c,d,228:real; begin read a; 228:=365; wrineln a; end.
Код: Выделить всё
228:=365;