Пожароопасная ситуация

Посмотреть архив целиком
program temperatura;

{$APPTYPE CONSOLE}

uses
SysUtils;
var a:integer;
begin
repeat Writeln('Vvedite teckushuu temperaturu');
readln(a);
until a>60;
if a>60 then writeln ('Pojaroopasnaya situazia');
readln;
end.





Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.