Program ufhg; uses crt; var a,b,c,d, m: integer; begin readln(a,b,c,d); m:=a; if(b>m) then m:=b; if(c>m) then m:=c; if(d>m) then m:=d; writeln(m); end.
1.Необходимо немедленно вызвать пожарную охрану по телефону "01", сообщив свой точный адрес, объект пожара и встретить пожарную охрану. Детям - если рядом есть взрослые, сразу позвать их на 2.Если горение только началось, вы его легко затушите водой, накроете толстым одеялом, покрывалом, забросаете песком, землей; 3. Ни в коем случае не тушить водой горящие электропроводку и электроприборы, находящиеся под напряжением - это опасно для жизни; 4. Если вы видите, что не сможете справиться с огнем, и пожар принимает угрожающие размеры покиньте помещение; 5. Никогда не прячьтесь в задымленном помещении в укромные места. И помните, что пожар легче предупредить, чем погасить, и что маленькая спичка может обернуться большой бедой!
И лишь пару лет тому назад интернет не был так значим людьми, как в наши дни. Дети не ходят гулять, а сидят в интернете, играя в различные игры или общаясь с людьми в соц сетях. Живое общение заменяет "смс". Не понимаешь чего-либо в уроке или жизни - загулил, хотя можно подойти к учительнице, попросить и она попытается понятно донести ту или иную информацию; или же подойти к родителям и попросить совета. Сейчас интернет имеет большую роль в нашем образе жизни, в жизни молодежи, но это не значит, что стоит забывать о реальном мире. Блин, как-то так
a, b, c, d: integer;
function max(i1, i2: integer): integer;
begin
if i1 > i2 then max := i1 else max := i2;
end;
begin
read(a, b, c, d);
writeln(max(max(max(a, b), c), d));
end.
не помню как процедуры писать, но с функциями даже удобнее